home *** CD-ROM | disk | FTP | other *** search
/ Giga Games 1 / Giga Games.iso / net / usenet / volume10 / gb3 / patch2i < prev   
Encoding:
Internet Message Format  |  1990-08-28  |  50.2 KB
  1. Path: uunet!zephyr.ens.tek.com!tekred!saab!billr
  2. From: billr@saab.CNA.TEK.COM (Bill Randle)
  3. Newsgroups: comp.sources.games
  4. Subject: v11i047:  gb3 - Galactic Bloodshed, an empire-like war game [Ver. 2.0], Patch2i
  5. Message-ID: <6234@tekred.CNA.TEK.COM>
  6. Date: 28 Aug 90 19:36:48 GMT
  7. Sender: news@tekred.CNA.TEK.COM
  8. Lines: 1626
  9. Approved: billr@saab.CNA.TEK.COM
  10.  
  11. Submitted-by: VANCLEEF@mps.ohio-state.edu
  12. Posting-number: Volume 11, Issue 47
  13. Archive-name: gb3/Patch2i
  14. Patch-To: gb3: Volume 10, Issue 1-14
  15.  
  16.  
  17.  
  18. #! /bin/sh
  19. # This is a shell archive.  Remove anything before this line, then unpack
  20. # it by saving it into a file and typing "sh file".  To overwrite existing
  21. # files, type "sh file -c".  You can also feed this as standard input via
  22. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  23. # will see the following message at the end:
  24. #        "End of archive 9 (of 9)."
  25. # Contents:  Docs/beginner.doc Docs/detonate.doc Docs/dissolve.doc
  26. #   Docs/dump.doc Docs/lasers.doc Docs/motto.doc Docs/production.doc
  27. #   Docs/read.doc Docs/repair.doc Docs/standby.doc Docs/stats.doc
  28. #   SETUP client/client.h server/capitol.c server/config.h
  29. #   server/dissolve.c server/files.h server/interface.h server/power.c
  30. #   server/races.h server/relation.c server/shipdata.h server/tech.c
  31. #   server/toggle.c
  32. # Wrapped by billr@saab on Tue Aug 28 08:55:01 1990
  33. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  34. if test -f 'Docs/beginner.doc' -a "${1}" != "-c" ; then 
  35.   echo shar: Renaming existing file \"'Docs/beginner.doc'\" to \"'Docs/beginner.doc.orig'\"
  36.   mv -f 'Docs/beginner.doc' 'Docs/beginner.doc.orig'
  37. fi
  38. echo shar: Extracting \"'Docs/beginner.doc'\" \(2900 characters\)
  39. sed "s/^X//" >'Docs/beginner.doc' <<'END_OF_FILE'
  40. X   If you are a beginner to Galactic Bloodshed (GB), no problem. The game
  41. Xmay seem a bit overwhelming at first, but so is everything at first :)
  42. XJust relax, get a cup of coffee, and enjoy. A typical GB game may last months
  43. Xand everything you do at first, even if you are out of touch for awhile,
  44. Xisn't totally critical! You can take off for the weekend, and have real life
  45. Xat the same time and come back to the game and have your race intact.
  46. X
  47. X  At any rate, what *is* GB anyway? Well, it's a wargame. But it is also a
  48. Xcampaign style war game. It is also a game of diplomacy, making and breaking
  49. Xalliances, back stabbing, and megalomania! All accessible via the net!
  50. X
  51. X  Basically, you start of with a race of people, and every race has it's own
  52. Xunique set of characteristics. What you want to do with this race is explore
  53. Xand maybe conquer the galaxy and be great big and famous and powerful...!
  54. XBUT, you can't do it alone, this is an important point ;)
  55. X
  56. X
  57. X  Speaking of points, what is the *point* of GB in the first place? 
  58. XWell, you want to *have fun*! Yes, that's the whole point of any game isn't 
  59. Xit? If you don't want to have fun, stop reading here and may your first born 
  60. Xhave the nose of camel and drink like one too :) In order to have fun you 
  61. Xmust realise at first - not all races are the same! In fact, every race is
  62. Xdifferent. Every race has advantages and disadvatages. During the first set 
  63. Xof updates, thing may seem uneven - but it's how you play the game in the 
  64. Xlong run which matters! Trust me on this.
  65. X
  66. X  Each turn in GB is called an 'update'. Updates are run at a schedule
  67. Xset by your game administrator (player #1 always!). During each update,
  68. Xyour population explores new sectors, the planets revolve about their
  69. Xprimaries (using Keppler's laws), ships are moved, production of resources,
  70. Xfuel, etc are made. In between updates you can order your ships, move
  71. Xyour people about on planets, attack enemy ships and planets, design your
  72. Xships etc...
  73. X
  74. X  What you want to do at first, is gather 50 resources, and then build a
  75. Xfactory. A factory is essential to the game. These things build ships!
  76. XYou build a factory, then tell it what kind of ship design you want to
  77. Xmake. The available ship designs are based on your technology which grows
  78. Xeach update. It takes a factory time to be ready to build it's ship design.
  79. XOnce the factory is ready, you can build ships there!
  80. X
  81. X  Next thing you want to do is explore the galaxy. Other planets in your
  82. Xhome star system should always be examined first. You might want to start
  83. Xcolonies on these. If you find a planet which you think your race can live
  84. Xon, land there and colonize!
  85. X
  86. X  As the game goes on, you will definitely run into other races. Talk to them!
  87. XThey may be good allies in the end - or maybe horrid enemies. That's up to
  88. Xyou. There's a big universe out there! And remember to *have fun*!
  89. X
  90. X:)
  91. X
  92. XGarrett van Cleef
  93. X6-14-90
  94. X
  95. X
  96. X
  97. X
  98. END_OF_FILE
  99. if test 2900 -ne `wc -c <'Docs/beginner.doc'`; then
  100.     echo shar: \"'Docs/beginner.doc'\" unpacked with wrong size!
  101. fi
  102. # end of 'Docs/beginner.doc'
  103. if test -f 'Docs/detonate.doc' -a "${1}" != "-c" ; then 
  104.   echo shar: Renaming existing file \"'Docs/detonate.doc'\" to \"'Docs/detonate.doc.orig'\"
  105.   mv -f 'Docs/detonate.doc' 'Docs/detonate.doc.orig'
  106. fi
  107. echo shar: Extracting \"'Docs/detonate.doc'\" \(381 characters\)
  108. sed "s/^X//" >'Docs/detonate.doc' <<'END_OF_FILE'
  109. XDETONATE            Galactic Bloodshed        DETONATE
  110. X
  111. X
  112. XNAME
  113. X  detonate -- force a mine to explode
  114. X
  115. XSYNTAX
  116. X  detonate <mine>
  117. X
  118. XDESCRIPTION
  119. X  
  120. X  Normally, a mine is set to detonate at a prearranged trigger radius
  121. Xusing the 'order' command. However, players may find it useful to order
  122. Xtheir space mines to explode upon request, between updates. This
  123. Xcommand is used to do this.
  124. X
  125. XSEE ALSO
  126. X  order
  127. X
  128. END_OF_FILE
  129. if test 381 -ne `wc -c <'Docs/detonate.doc'`; then
  130.     echo shar: \"'Docs/detonate.doc'\" unpacked with wrong size!
  131. fi
  132. # end of 'Docs/detonate.doc'
  133. if test -f 'Docs/dissolve.doc' -a "${1}" != "-c" ; then 
  134.   echo shar: Renaming existing file \"'Docs/dissolve.doc'\" to \"'Docs/dissolve.doc.orig'\"
  135.   mv -f 'Docs/dissolve.doc' 'Docs/dissolve.doc.orig'
  136. fi
  137. echo shar: Extracting \"'Docs/dissolve.doc'\" \(487 characters\)
  138. sed "s/^X//" >'Docs/dissolve.doc' <<'END_OF_FILE'
  139. XDISSOLVE            Galactic Bloodshed            DISSOLVE
  140. X
  141. X
  142. XNAME
  143. X  dissolve -- resign your forces from play in the game.
  144. X
  145. XSYNTAX
  146. X  dissolve <password>
  147. X
  148. XDESCRIPTION
  149. X  
  150. X   A player can resign from the game by issuing a dissolve command. All ships,
  151. Xsectors, resources, destruct, etc. are permanently eliminated from the game.
  152. XDissolved players also do not appear on power reports.
  153. X
  154. X   You must specify your password to dissolve. Make sure you want to do this
  155. Xbefore using it, as all is immediately lost!
  156. X
  157. X
  158. X
  159. END_OF_FILE
  160. if test 487 -ne `wc -c <'Docs/dissolve.doc'`; then
  161.     echo shar: \"'Docs/dissolve.doc'\" unpacked with wrong size!
  162. fi
  163. # end of 'Docs/dissolve.doc'
  164. if test -f 'Docs/dump.doc' -a "${1}" != "-c" ; then 
  165.   echo shar: Renaming existing file \"'Docs/dump.doc'\" to \"'Docs/dump.doc.orig'\"
  166.   mv -f 'Docs/dump.doc' 'Docs/dump.doc.orig'
  167. fi
  168. echo shar: Extracting \"'Docs/dump.doc'\" \(328 characters\)
  169. sed "s/^X//" >'Docs/dump.doc' <<'END_OF_FILE'
  170. XDUMP            Galactic Bloodshed            DUMP
  171. X
  172. X
  173. XNAME
  174. X  [10] dump -- give another player your expl,oration data
  175. X
  176. XSYNTAX
  177. X  dump <player>
  178. X
  179. XDESCRIPTION
  180. X  
  181. X   This allows a player to give another player (usually a trusted
  182. Xally) all of your exploration data. This information is permanently
  183. Xrecorded in the receiving player's exploration list.
  184. X
  185. X
  186. X
  187. END_OF_FILE
  188. if test 328 -ne `wc -c <'Docs/dump.doc'`; then
  189.     echo shar: \"'Docs/dump.doc'\" unpacked with wrong size!
  190. fi
  191. # end of 'Docs/dump.doc'
  192. if test -f 'Docs/lasers.doc' -a "${1}" != "-c" ; then 
  193.   echo shar: Renaming existing file \"'Docs/lasers.doc'\" to \"'Docs/lasers.doc.orig'\"
  194.   mv -f 'Docs/lasers.doc' 'Docs/lasers.doc.orig'
  195. fi
  196. echo shar: Extracting \"'Docs/lasers.doc'\" \(1472 characters\)
  197. sed "s/^X//" >'Docs/lasers.doc' <<'END_OF_FILE'
  198. XLASERS            Galactic Bloodshed            LASERS
  199. X
  200. X
  201. XCONCEPT
  202. X  lasers -- ships may mount combat lasers for use in battle.
  203. X
  204. XDESCRIPTION
  205. X  
  206. X   Some ships may be permitted to mount combat lasers at time
  207. Xof construction. Ships require a minimum technology of 100.
  208. XA ship which has a laser mounted may optionally
  209. Xuse these for firing instead of the normal guns. Unlike guns,
  210. Xlasers use fuel instead of destruct to attack with. Two points
  211. Xof fuel is equivalent to 1 gun. The player must also have a
  212. Xcrystal mounted to use the fuel for attacking.
  213. X
  214. X   There is no limit to the amount of fuel that may used in
  215. Xan attack. However, there is a technological stability limit,
  216. Xbeyond which crystal damage may result, or even an explosion.
  217. X
  218. XShip explosion is determined by the formula:
  219. X    Explosion if rand(0, strength) > ship tech/2.
  220. X
  221. XA 100 technology ship may fire up to 50 strength points safely, a
  222. X200 tech ship 100, etc. Pushing it beyond this limit may result
  223. Xin a matter/anti-matter explosion!
  224. X
  225. XCrystals may damage before they explode a ship. The chances of
  226. Xdamage (and hence an automatic dismount and loss of the crystal)
  227. Xis determined by
  228. X    Damaged if rand(0, strength) > ship tech/4.
  229. X
  230. XA ship will only fire lasers if told to do so. This is done using
  231. Xthe order command 'order <ship> laser on <default strength>'.
  232. XThe laser may be turned off with 'order <ship> laser off'. If the
  233. Xlaser is set on, then executing the 'fire' command uses lasers
  234. Xinstead of normal weapons.
  235. X
  236. XSEE ALSO
  237. X   fire, order
  238. X
  239. END_OF_FILE
  240. if test 1472 -ne `wc -c <'Docs/lasers.doc'`; then
  241.     echo shar: \"'Docs/lasers.doc'\" unpacked with wrong size!
  242. fi
  243. # end of 'Docs/lasers.doc'
  244. if test -f 'Docs/motto.doc' -a "${1}" != "-c" ; then 
  245.   echo shar: Renaming existing file \"'Docs/motto.doc'\" to \"'Docs/motto.doc.orig'\"
  246.   mv -f 'Docs/motto.doc' 'Docs/motto.doc.orig'
  247. fi
  248. echo shar: Extracting \"'Docs/motto.doc'\" \(350 characters\)
  249. sed "s/^X//" >'Docs/motto.doc' <<'END_OF_FILE'
  250. XMOTTO            Galactic Bloodshed            MOTTO
  251. X
  252. X
  253. XNAME
  254. X  motto -- set a motto for an alliance block
  255. X
  256. XSYNTAX
  257. X  motto <motto>
  258. X
  259. XDESCRIPTION
  260. X  
  261. X   Players may give the alliance block they control a motto which
  262. Xwill show up on individual block reports. This is strictly for 
  263. Xentertainment/communications and has no effect on the play of the game.
  264. X
  265. XSEE ALSO
  266. X   blocks
  267. X
  268. END_OF_FILE
  269. if test 350 -ne `wc -c <'Docs/motto.doc'`; then
  270.     echo shar: \"'Docs/motto.doc'\" unpacked with wrong size!
  271. fi
  272. # end of 'Docs/motto.doc'
  273. if test -f 'Docs/production.doc' -a "${1}" != "-c" ; then 
  274.   echo shar: Renaming existing file \"'Docs/production.doc'\" to \"'Docs/production.doc.orig'\"
  275.   mv -f 'Docs/production.doc' 'Docs/production.doc.orig'
  276. fi
  277. echo shar: Extracting \"'Docs/production.doc'\" \(348 characters\)
  278. sed "s/^X//" >'Docs/production.doc' <<'END_OF_FILE'
  279. XPRODUCTION        Galactic Bloodshed        PRODUCTION
  280. X
  281. X
  282. XNAME
  283. X  production -- show latest planet production statistics
  284. X
  285. XSYNTAX
  286. X  production
  287. X
  288. XDESCRIPTION
  289. X  
  290. X   This command will show the number of resources, fuel, and
  291. Xdestruct that a planet production during the previous update.
  292. XYou must change scope to the planet for this command to work.
  293. X
  294. XSEE ALSO
  295. X    survey
  296. X
  297. END_OF_FILE
  298. if test 348 -ne `wc -c <'Docs/production.doc'`; then
  299.     echo shar: \"'Docs/production.doc'\" unpacked with wrong size!
  300. fi
  301. # end of 'Docs/production.doc'
  302. if test -f 'Docs/read.doc' -a "${1}" != "-c" ; then 
  303.   echo shar: Renaming existing file \"'Docs/read.doc'\" to \"'Docs/read.doc.orig'\"
  304.   mv -f 'Docs/read.doc' 'Docs/read.doc.orig'
  305. fi
  306. echo shar: Extracting \"'Docs/read.doc'\" \(314 characters\)
  307. sed "s/^X//" >'Docs/read.doc' <<'END_OF_FILE'
  308. XREAD            Galactic Bloodshed        READ
  309. X
  310. X
  311. XNAME
  312. X  [0] read -- read messages from other players and news
  313. X 
  314. XSYNTAX
  315. X      read <what>
  316. X
  317. XDESCRIPTION
  318. X
  319. X  Read allows the player to look over messages sent to him by the other
  320. Xusers in the game.  Players can also read the 'Galactic News' by doing
  321. X'read news'.
  322. X
  323. XSEE ALSO
  324. X  telegram
  325. X
  326. END_OF_FILE
  327. if test 314 -ne `wc -c <'Docs/read.doc'`; then
  328.     echo shar: \"'Docs/read.doc'\" unpacked with wrong size!
  329. fi
  330. # end of 'Docs/read.doc'
  331. if test -f 'Docs/repair.doc' -a "${1}" != "-c" ; then 
  332.   echo shar: Renaming existing file \"'Docs/repair.doc'\" to \"'Docs/repair.doc.orig'\"
  333.   mv -f 'Docs/repair.doc' 'Docs/repair.doc.orig'
  334. fi
  335. echo shar: Extracting \"'Docs/repair.doc'\" \(647 characters\)
  336. sed "s/^X//" >'Docs/repair.doc' <<'END_OF_FILE'
  337. XREPAIR            Galactic Bloodshed            REPAIR
  338. X
  339. X
  340. XNAME
  341. X  [0] repair -- repair a planet/sectors
  342. X
  343. XSYNTAX
  344. X    repair <xlow:xhi,ylow:yhi or x,y>
  345. X
  346. XDESCRIPTION
  347. X    Players can repair sectors which have wasted designations, due to 
  348. Xcombat or other effects. The player must change scope to the planet. If
  349. Xno arguments are given, all sectors will be repaired to the limit of available
  350. Xresources. A player must inhabit at least one sector and have 10 resources
  351. Xfor each sector repaired. If arguments are given, a rectangular area
  352. Xspecified by the player will be repaired. Note that only wasted sectors
  353. Xcan be repaired, and sectors inhabited by aliens may not be repaired.
  354. X
  355. X
  356. END_OF_FILE
  357. if test 647 -ne `wc -c <'Docs/repair.doc'`; then
  358.     echo shar: \"'Docs/repair.doc'\" unpacked with wrong size!
  359. fi
  360. # end of 'Docs/repair.doc'
  361. if test -f 'Docs/standby.doc' -a "${1}" != "-c" ; then 
  362.   echo shar: Renaming existing file \"'Docs/standby.doc'\" to \"'Docs/standby.doc.orig'\"
  363.   mv -f 'Docs/standby.doc' 'Docs/standby.doc.orig'
  364. fi
  365. echo shar: Extracting \"'Docs/standby.doc'\" \(326 characters\)
  366. sed "s/^X//" >'Docs/standby.doc' <<'END_OF_FILE'
  367. XSTANDBY            Galactic Bloodshed            STANDBY
  368. X
  369. X
  370. XNAME
  371. X  standby -- enter dormant mode
  372. X
  373. XSYNTAX
  374. X  standby
  375. X
  376. XDESCRIPTION
  377. X  
  378. X   A player may enter standby mode, which doesn't use up time allotments,
  379. Xbut severely restricts the commands he/she may use. While in standby
  380. Xmode, a player may only issue communications commands.
  381. X
  382. XSEE ALSO
  383. X    time
  384. END_OF_FILE
  385. if test 326 -ne `wc -c <'Docs/standby.doc'`; then
  386.     echo shar: \"'Docs/standby.doc'\" unpacked with wrong size!
  387. fi
  388. # end of 'Docs/standby.doc'
  389. if test -f 'Docs/stats.doc' -a "${1}" != "-c" ; then 
  390.   echo shar: Renaming existing file \"'Docs/stats.doc'\" to \"'Docs/stats.doc.orig'\"
  391.   mv -f 'Docs/stats.doc' 'Docs/stats.doc.orig'
  392. fi
  393. echo shar: Extracting \"'Docs/stats.doc'\" \(277 characters\)
  394. sed "s/^X//" >'Docs/stats.doc' <<'END_OF_FILE'
  395. XSTATS            Galactic Bloodshed        STATS
  396. X
  397. X
  398. XNAME
  399. X  [0] stats -- report ship characteristics
  400. X 
  401. XSYNTAX
  402. X      status <#shipnum or ship types>
  403. X
  404. XDESCRIPTION
  405. X  This command allows users to examine characteristics of their ships.  
  406. X
  407. X
  408. XSEE ALSO
  409. X  examine, ship, stock, tactical, scope, report
  410. X
  411. END_OF_FILE
  412. if test 277 -ne `wc -c <'Docs/stats.doc'`; then
  413.     echo shar: \"'Docs/stats.doc'\" unpacked with wrong size!
  414. fi
  415. # end of 'Docs/stats.doc'
  416. if test -f 'SETUP' -a "${1}" != "-c" ; then 
  417.   echo shar: Renaming existing file \"'SETUP'\" to \"'SETUP.orig'\"
  418.   mv -f 'SETUP' 'SETUP.orig'
  419. fi
  420. echo shar: Extracting \"'SETUP'\" \(2840 characters\)
  421. sed "s/^X//" >'SETUP' <<'END_OF_FILE'
  422. XFrom: vancleef@ohstpy.mps.ohio-state.edu
  423. XNewsgroups: alt.games.galactic-bloodshed
  424. XSubject: Compilation/Setup
  425. XDate: 2 Aug 90 21:21:14 GMT
  426. XLines: 56
  427. X
  428. XOK, several people have been requesting info on how to get GB set up, etc,
  429. Xand since I finally can get this new newsgroup, here we go.
  430. X
  431. XAll of the details on setting it up are in README1.3 - but here is a brief
  432. Xdescription.
  433. X
  434. XGB is divided into two parts, a 'server' which resides on the computer of
  435. Xthe person who is hosting the game. This person should be in charge of
  436. Xmaking sure everything is running smoothly, enrolling players, etc. 
  437. XThe server communicates with players over the network. It processes command
  438. Xlines and send information to the appropriate players. The game is
  439. Xdesigned to be accessible 24 hrs a day, via the internet.
  440. XEach player should have a copy of the 'client'. If you dont want to host
  441. Xa game you needn't get the server, just the client. The client talks with
  442. Xserver and draws maps when they are requested. The server sends coded
  443. Xinformation which tells the client how to draw the maps.
  444. X
  445. XThe server and client as well as game docs are posted at an ftp site.
  446. XYou can obtain them from 'scam.berkeley.edu' (128.32.138.0) using
  447. Xanonymous ftp in the directory tmp/GB. Jeff Wallace maintains the
  448. Xftp site and compresses the code every few days or so. Since I post
  449. Xmodification to it regularly, it's probably a good idea to examine the
  450. Xdates on the files, as changes are made almost daily, get the latest
  451. Xversion. The server is in the file GB_server.shar, client in GB_client.shar,
  452. Xand docs in GB_docs.shar.
  453. X
  454. XSetting up a client:
  455. X    obtain the GB_client.shar file and set up a client directory.
  456. X    Then do 'sh GB_client.shar' and your system will unpack the
  457. X    file. Then, do 'make' and your system should compile the
  458. X    program. Note, you may have to make modifications to the
  459. X    Makefile to get it to run on your system. See a local Unix
  460. X    guru for help if you don't understand it.
  461. X    
  462. X    You can then connect to your favorite GB game by doing
  463. X    'GB_client <host> <port>'. e.g. - GB_client pooh.caltech.edu 2010
  464. X    would get you to the caltech game (which is sorta dying now :)
  465. X
  466. XSetting up the server:
  467. X    Obtain GB_server.shar, and set up a directory called 'GB' (my
  468. X    suggestion). Then do 'sh GB_server.shar' and then 'make'.
  469. X    Once again you may have to modify the Makefile to get it to
  470. X    work on your system. The makee process will also produce other
  471. X    programs, these are described in README1.3 which comes along
  472. X    with the server.
  473. X
  474. XRemember, gb has come a long way and we are still working things out. Post
  475. X    suggestions here or e-mail to vancleef@pooh.caltech.edu or
  476. X    vancleef@ohstpy.mps.ohio-state.edu. You can also send to
  477. X    Robert Chansky (address in previous posting)
  478. X
  479. X"Let the space battles begin!" - Jeff Wallace
  480. X
  481. Xdisclaimer: *** THIS MAY BE INCOMPATIBLE WITH SYSTEM/V ***
  482. X
  483. X-Garrett
  484. X
  485. X
  486. END_OF_FILE
  487. if test 2840 -ne `wc -c <'SETUP'`; then
  488.     echo shar: \"'SETUP'\" unpacked with wrong size!
  489. fi
  490. # end of 'SETUP'
  491. if test -f 'client/client.h' -a "${1}" != "-c" ; then 
  492.   echo shar: Renaming existing file \"'client/client.h'\" to \"'client/client.h.orig'\"
  493.   mv -f 'client/client.h' 'client/client.h.orig'
  494. fi
  495. echo shar: Extracting \"'client/client.h'\" \(294 characters\)
  496. sed "s/^X//" >'client/client.h' <<'END_OF_FILE'
  497. X#define VERS "1.3.1  7/25/90"
  498. X
  499. X#ifndef TRUE
  500. X#define TRUE 1
  501. X#endif
  502. X
  503. X#ifndef FALSE
  504. X#define FALSE 0
  505. X#endif
  506. X
  507. X#define MAXSTRLEN 8192
  508. X#define HUGESTRLEN (2*MAXSTRLEN + 1)
  509. X#define SMALLSTR 31
  510. X
  511. Xtypedef char    string[MAXSTRLEN];
  512. Xtypedef char    hugestr[HUGESTRLEN];
  513. Xtypedef char    smallstr[SMALLSTR];
  514. END_OF_FILE
  515. if test 294 -ne `wc -c <'client/client.h'`; then
  516.     echo shar: \"'client/client.h'\" unpacked with wrong size!
  517. fi
  518. # end of 'client/client.h'
  519. if test -f 'server/capitol.c' -a "${1}" != "-c" ; then 
  520.   echo shar: Renaming existing file \"'server/capitol.c'\" to \"'server/capitol.c.orig'\"
  521.   mv -f 'server/capitol.c' 'server/capitol.c.orig'
  522. fi
  523. echo shar: Extracting \"'server/capitol.c'\" \(1969 characters\)
  524. sed "s/^X//" >'server/capitol.c' <<'END_OF_FILE'
  525. X/*
  526. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  527. X * smq@ucscb.ucsc.edu, mods by people in GB_copyright.h.
  528. X * Restrictions in GB_copyright.h.
  529. X *
  530. X * capitol.c -- designate a capitol
  531. X */
  532. X
  533. X#include "GB_copyright.h"
  534. X#define EXTERN extern
  535. X#include "vars.h"
  536. X#include "ships.h"
  537. X#include "races.h"
  538. X#include "buffers.h"
  539. X#include <signal.h>
  540. X
  541. Xint capitol_racedata;
  542. X
  543. Xcapitol(Playernum,APcount, argn,args)
  544. Xint Playernum;
  545. Xint APcount;
  546. Xint argn;
  547. Xchar args[MAXARGS][COMMANDSIZE];
  548. X{
  549. Xint shipno,stat;
  550. Xint shdata;
  551. Xshiptype *s;
  552. Xracetype *Race;
  553. X
  554. Xopenracedata(&capitol_racedata);
  555. Xgetrace(capitol_racedata, &Race, Playernum);
  556. Xclose_file(capitol_racedata);
  557. X
  558. X  if (argn!=2) {
  559. X     shipno = Race->Gov_ship;
  560. X  } else {
  561. X
  562. X     shipno = atoi(args[1]+(args[1][0]=='#'));
  563. X
  564. X     if (Dir[Playernum-1].level==LEVEL_UNIV) {
  565. X     if (!enufAP(Playernum,Sdata.AP[Playernum-1],APcount)) {
  566. X         free(Race);
  567. X         return;
  568. X        }
  569. X     } else {
  570. X     if (!enufAP(Playernum,Stars[Dir[Playernum-1].snum]->AP[Playernum-1],APcount)) {
  571. X         free(Race);
  572. X         return;
  573. X        }
  574. X        }
  575. X  }
  576. X
  577. Xif(shipno <= 0) {
  578. X    notify(Playernum, "Change the capitol to be what ship?\n");
  579. X    free(Race);
  580. X    return;
  581. X    }
  582. X
  583. X  openshdata(&shdata);
  584. X  stat = getship(shdata, &s, shipno);
  585. X  close_file(shdata);
  586. X
  587. X  if (argn==2) {
  588. X    if (!stat || testship(Playernum,s, shipno)) {
  589. X    free(Race);
  590. X    free(s);
  591. X    return;
  592. X    }
  593. X
  594. X    if (s->type!=OTYPE_GOV) {
  595. X    sprintf(buf,"That ship is not a %s.\n",Shipnames[OTYPE_GOV]);
  596. X    notify(Playernum, buf);
  597. X    free(Race);
  598. X    free(s);
  599. X    return;
  600. X    }
  601. X
  602. X    if (Dir[Playernum-1].level==LEVEL_UNIV)
  603. X      deductAPs(Playernum, APcount, 0, 1);
  604. X    else
  605. X      deductAPs(Playernum, APcount, Dir[Playernum-1].snum, 0);
  606. X
  607. X        Race->Gov_ship = shipno;
  608. X    openracedata(&capitol_racedata);
  609. X        putrace(capitol_racedata, Race);
  610. X    close_file(capitol_racedata);
  611. X
  612. X  }
  613. X  sprintf(buf,"Efficiency of governmental center: %.0f%%.\n", 
  614. X    ((float)s->popn/Max_crew(s)) *
  615. X    (100 - (float)s->damage) );
  616. X  notify(Playernum, buf);
  617. X  free(Race);
  618. X  free(s);
  619. X
  620. X}
  621. END_OF_FILE
  622. if test 1969 -ne `wc -c <'server/capitol.c'`; then
  623.     echo shar: \"'server/capitol.c'\" unpacked with wrong size!
  624. fi
  625. # end of 'server/capitol.c'
  626. if test -f 'server/config.h' -a "${1}" != "-c" ; then 
  627.   echo shar: Renaming existing file \"'server/config.h'\" to \"'server/config.h.orig'\"
  628.   mv -f 'server/config.h' 'server/config.h.orig'
  629. fi
  630. echo shar: Extracting \"'server/config.h'\" \(760 characters\)
  631. sed "s/^X//" >'server/config.h' <<'END_OF_FILE'
  632. X#include "files.h"    /* for PATH() definition */
  633. X 
  634. X#define VERS "2.2.3 8/23/90"
  635. X
  636. X#ifndef GB_HOST
  637. X#define GB_HOST "pooh.caltech.edu"
  638. X#endif
  639. X
  640. X#ifndef GB_PORT
  641. X#define GB_PORT 2010
  642. X#endif
  643. X
  644. X
  645. X#define COMMAND_TIME_MSEC 250    /* time slice length in milliseconds */
  646. X#define COMMANDS_PER_TIME 1    /* commands per time slice after burst */
  647. X#define COMMAND_BURST_SIZE 250    /* commands allowed per user in a burst */
  648. X#define DISCONNECT_TIME        7200    /* maximum idle time */
  649. X#define MAX_OUTPUT 32768
  650. X#define DAEMON_PASSWORD "put_your_update_password_here"
  651. X
  652. X#define QUIT_COMMAND "quit"
  653. X#define WHO_COMMAND "who"
  654. X#define HELP_COMMAND "help"
  655. X
  656. X/* put full pathnames in here as required */
  657. X#define WELCOME_FILE PATH(welcome.txt)
  658. X#define LEAVE_MESSAGE "\n*** Have a nice day :-) ***\n"
  659. END_OF_FILE
  660. if test 760 -ne `wc -c <'server/config.h'`; then
  661.     echo shar: \"'server/config.h'\" unpacked with wrong size!
  662. fi
  663. # end of 'server/config.h'
  664. if test -f 'server/dissolve.c' -a "${1}" != "-c" ; then 
  665.   echo shar: Renaming existing file \"'server/dissolve.c'\" to \"'server/dissolve.c.orig'\"
  666.   mv -f 'server/dissolve.c' 'server/dissolve.c.orig'
  667. fi
  668. echo shar: Extracting \"'server/dissolve.c'\" \(3661 characters\)
  669. sed "s/^X//" >'server/dissolve.c' <<'END_OF_FILE'
  670. X/*
  671. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky,
  672. X * smq@ucscb.ucsc.edu, mods by people in GB_copyright.h.
  673. X * Restrictions in GB_copyright.h.
  674. X * dissolve.c -- commit suicide, nuke all ships and sectors;
  675. X * July 24th, 1989, John Deragon, cruz@cadman.nyu.edu
  676. X */
  677. X
  678. X#include "GB_copyright.h"
  679. X#define EXTERN extern
  680. X#include "vars.h"
  681. X#include "ships.h"
  682. X#include "races.h"
  683. X#include "doturn.h"
  684. X#include "power.h"
  685. X#include "buffers.h"
  686. X#include <math.h>
  687. X
  688. X
  689. Xdissolve(Playernum, argn, args)
  690. Xint Playernum;
  691. Xint argn;
  692. Xchar args[MAXARGS][COMMANDSIZE];
  693. X{
  694. X
  695. Xint shdata, pdata, racedata, stardata, sectdata, n_ships;
  696. Xint i, z, x, y, x2, y2, hix, hiy, lowx,lowy;
  697. Xboolean waste;
  698. Xshiptype *sp;
  699. Xracetype *Race;
  700. Xplanettype *pl;
  701. Xsectortype *s;
  702. Xchar nuke;
  703. Xchar buf[1024][100];
  704. Xchar password[100];
  705. X
  706. Xopenshdata(&shdata);
  707. Xn_ships = Numships(shdata);
  708. Xclose_file(shdata);
  709. X
  710. Xif (argn < 2) {
  711. X    sprintf(buf, "Self-Destruct sequence requires password.\n");
  712. X    notify(Playernum, buf);
  713. X    sprintf(buf, "Please use 'dissolve <your password> '<option> to initiate\n");
  714. X    notify(Playernum, buf);
  715. X    sprintf(buf, "self-destruct sequence.\n");
  716. X    notify(Playernum, buf);
  717. X    return;
  718. X   } else {
  719. X    sprintf(buf, "WARNING!! WARNING!! WARNING!!\n");
  720. X    notify(Playernum, buf);
  721. X    sprintf(buf, "-------------------------------\n");
  722. X    notify(Playernum, buf);
  723. X    sprintf(buf, "Entering self destruct sequence!\n");
  724. X    notify(Playernum, buf);
  725. X
  726. X
  727. X    sscanf(args[1], "%s", password);
  728. X
  729. X
  730. X    waste = 0;
  731. X    if(argn > 2) {
  732. X    sscanf(args[2], "%c", &nuke);
  733. X        if (nuke == 'w') 
  734. X           waste = 1;
  735. X    }
  736. X    
  737. X    i = Getracenum(password);
  738. X
  739. X        if (!i) {
  740. X       sprintf(buf, "Password mismatch, self-destruct not initiated!\n");
  741. X      notify(Playernum, buf);
  742. X     return;
  743. X    }    
  744. X
  745. Xopenshdata(&shdata);
  746. Xfor (i=1; i<=n_ships; i++) {
  747. X    getship(shdata,&sp, i);
  748. X    if (sp->owner == Playernum) {
  749. X        kill_ship(Playernum, sp);
  750. X        makeshipdead(i);
  751. X        sprintf(buf, "Ship #%d, self-destruct enabled\n",i);
  752. X        notify(Playernum, buf);
  753. X        putship(shdata, sp, i);
  754. X    }
  755. X    free(sp);
  756. X}
  757. Xclose_file(shdata);
  758. X
  759. X openstardata(&stardata);
  760. X getsdata(stardata,&Sdata);
  761. X openpdata(&pdata);
  762. X opensectdata(§data);
  763. Xfor (z=0; z<Sdata.numstars; z++) {
  764. X    free(Stars[z]); 
  765. X   getstar(stardata, &(Stars[z]), z);
  766. X    if (isset(Stars[z]->explored,Playernum)) {
  767. X        for (i=0; i<Stars[z]->numplanets; i++) {
  768. X           getplanet(pdata,&pl,Stars[z]->planetpos[i]);
  769. X
  770. X           if (pl->info[Playernum-1].explored
  771. X               && pl->info[Playernum-1].numsectsowned)  {
  772. X                      pl->info[Playernum-1].numsectsowned = 0;
  773. X            pl->info[Playernum-1].explored = 0;
  774. X            pl->info[Playernum-1].resource = 0;
  775. X            pl->info[Playernum-1].destruct = 0;
  776. X            pl->info[Playernum-1].fuel = 0;    
  777. X            pl->popn = 0; 
  778. X
  779. X        }
  780. X
  781. X             getsmap(sectdata,Smap,pl);
  782. X
  783. X
  784. X    lowx = 0;
  785. X    lowy = 0;
  786. X    hix = pl->Maxx-1;
  787. X    hiy = pl->Maxy-1;
  788. X    for (y2=lowy; y2<=hiy; y2++) {
  789. X         for (x2=lowx; x2<=hix; x2++) {
  790. X             s = &Sector(*pl,x2,y2);
  791. X        if (s->owner == Playernum) {
  792. X        s->owner = 0;
  793. X        s->popn = 0;
  794. X          if (waste)
  795. X            s->is_wasted = 1;
  796. X            }
  797. X          }
  798. X    }
  799. X            putsmap(sectdata,Smap,pl);
  800. X        putstar(stardata, Stars[z], z);
  801. X        putplanet(pdata,pl,Stars[z]->planetpos[i]);
  802. X        free(pl);
  803. X            }
  804. X     }
  805. X   }    
  806. Xclose_file(pdata);
  807. Xclose_file(stardata);
  808. Xclose_file(sectdata);
  809. X
  810. X    openracedata(&racedata);                                          
  811. X    getrace(racedata, &Race, Playernum);                              
  812. X    Race->dissolved = 1;
  813. X    putrace(racedata, Race);
  814. X    close_file(racedata);
  815. X
  816. X    for(i=1; i<=Numraces(); i++)
  817. X    if(i!=Playernum) {
  818. X        sprintf(buf, "%s [%d] has dissolved.\n", Race->name, Playernum);
  819. X        if(!notify(i, buf))
  820. X        push_message(TELEG_PLAYER_AUTO, i, buf, DECLARATION);
  821. X       }
  822. X        free(Race);
  823. X    }
  824. X}
  825. END_OF_FILE
  826. if test 3661 -ne `wc -c <'server/dissolve.c'`; then
  827.     echo shar: \"'server/dissolve.c'\" unpacked with wrong size!
  828. fi
  829. # end of 'server/dissolve.c'
  830. if test -f 'server/files.h' -a "${1}" != "-c" ; then 
  831.   echo shar: Renaming existing file \"'server/files.h'\" to \"'server/files.h.orig'\"
  832.   mv -f 'server/files.h' 'server/files.h.orig'
  833. fi
  834. echo shar: Extracting \"'server/files.h'\" \(1475 characters\)
  835. sed "s/^X//" >'server/files.h' <<'END_OF_FILE'
  836. X#ifndef _FILES_H_
  837. X#define _FILES_H_
  838. X/*
  839. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  840. X * smq@ucscb.ucsc.edu, mods by people in GB.c, enroll.dat.
  841. X * Restrictions in GB.c.
  842. X */
  843. X
  844. X
  845. X#ifdef __STDC__
  846. X/*# define PATH(file)    "/Net/pooh/Users/Staff/vancleef/GB/" #file */
  847. X#define PATH(file) #file
  848. X# define DFILE(fl)    PATH(Data/) #fl
  849. X#else
  850. X# define PATH(file)    "/usr/net/games/lib/GB/file"
  851. X# define DFILE(fl)    "/usr/net/games/lib/GB/Data/fl"
  852. X#endif
  853. X
  854. X#define PATHLEN        200    /* length of file paths to the game.. */
  855. X
  856. X#define CUTE_MESSAGE    "\nThe Galactic News\n\n"
  857. X#define TELEGRAM    0
  858. X#define DECLARATION    1
  859. X#define TRANSFER    2
  860. X#define COMBAT        3
  861. X#define ANNOUNCE    4
  862. X
  863. X#define PAGER        Files[0]
  864. X#define DATADIR        Files[1]
  865. X#define DOCS        Files[2]
  866. X#define EXAM_FL        Files[3]
  867. X#define ENROLL_FL    Files[4]
  868. X#define DO_TURN        Files[5]
  869. X#define STARDATAFL     Files[6]
  870. X#define SECTORDATAFL     Files[7]
  871. X#define PLANETDATAFL     Files[8]
  872. X#define RACEDATAFL     Files[9]
  873. X#define BLOCKDATAFL    Files[10]
  874. X#define SHIPDATAFL     Files[11]
  875. X#define SHIPFREEDATAFL     Files[12]
  876. X#define DUMMYFL        Files[13]
  877. X#define PLAYERDATAFL     Files[14]
  878. X#define TELEGRAMDIR     Files[15]
  879. X#define TELEGRAMFL     Files[16]
  880. X#define POWFL        Files[17]
  881. X#define LOCK_ALL     Files[18]
  882. X#define NEWSDIR        Files[19]
  883. X#define DECLARATIONFL    Files[20]
  884. X#define TRANSFERFL    Files[21]
  885. X#define COMBATFL    Files[22]
  886. X#define ANNOUNCEFL    Files[23]
  887. X
  888. X#define PLANETLIST    "planet.list"
  889. X
  890. X#define PROFDATAFL    PATH(spitup)
  891. X#define DAEMONFL     PATH(daemon.dat)
  892. X
  893. Xextern char *Files[];
  894. X#endif
  895. END_OF_FILE
  896. if test 1475 -ne `wc -c <'server/files.h'`; then
  897.     echo shar: \"'server/files.h'\" unpacked with wrong size!
  898. fi
  899. # end of 'server/files.h'
  900. if test -f 'server/interface.h' -a "${1}" != "-c" ; then 
  901.   echo shar: Renaming existing file \"'server/interface.h'\" to \"'server/interface.h.orig'\"
  902.   mv -f 'server/interface.h' 'server/interface.h.orig'
  903. fi
  904. echo shar: Extracting \"'server/interface.h'\" \(443 characters\)
  905. sed "s/^X//" >'server/interface.h' <<'END_OF_FILE'
  906. X#include "TinyMUD_copyright.h"
  907. X
  908. X/* these symbols must be defined by the interface */
  909. Xextern int notify();
  910. Xextern int shutdown_flag; /* if non-zero, interface should shut down */
  911. Xextern void emergency_shutdown();
  912. X
  913. X/* the following symbols are provided by game.c */
  914. X
  915. X/* max length of command argument to process_command */
  916. X#define MAX_COMMAND_LEN 512
  917. X#define BUFFER_LEN ((MAX_COMMAND_LEN)*8)
  918. Xextern void process_command();
  919. X
  920. Xextern void panic();
  921. END_OF_FILE
  922. if test 443 -ne `wc -c <'server/interface.h'`; then
  923.     echo shar: \"'server/interface.h'\" unpacked with wrong size!
  924. fi
  925. # end of 'server/interface.h'
  926. if test -f 'server/power.c' -a "${1}" != "-c" ; then 
  927.   echo shar: Renaming existing file \"'server/power.c'\" to \"'server/power.c.orig'\"
  928.   mv -f 'server/power.c' 'server/power.c.orig'
  929. fi
  930. echo shar: Extracting \"'server/power.c'\" \(4434 characters\)
  931. sed "s/^X//" >'server/power.c' <<'END_OF_FILE'
  932. X/*
  933. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  934. X * smq@ucscb.ucsc.edu, mods by people in GB_copyright.h.
  935. X * Restrictions in GB_copyright.h.
  936. X *
  937. X * Galactic Bloodshed (Robert Chansky, smq@ucscb.ucsc.edu)
  938. X * power.c -- display power report
  939. X */
  940. X
  941. X#include "GB_copyright.h"
  942. X#define EXTERN extern
  943. X#include "vars.h"
  944. X#include "races.h"
  945. X#include "power.h"
  946. X#include "buffers.h"
  947. X#include <errno.h>
  948. X#include <time.h>
  949. Xextern int errno;
  950. Xextern struct tm *update_tm;
  951. Xint power_racedata;
  952. X
  953. Xblock(Playernum,APcount, argn,args)
  954. Xint Playernum;
  955. Xint APcount, argn;
  956. Xchar args[MAXARGS][COMMANDSIZE];
  957. X{
  958. Xregister int i,n;
  959. Xint power_fd, p;
  960. Xracetype *r;
  961. Xint dummy;
  962. X
  963. X      n = Numraces();
  964. X
  965. Xif(argn > 1) {
  966. X
  967. X    GetPlayer(args[1], &p, &r);
  968. Xif(p < 1 || p > n) {
  969. X    notify(Playernum, "No such player,\n");
  970. X    return;
  971. X    }
  972. Xfree(r);
  973. X
  974. X/* list the players who are in this alliance block */
  975. X    dummy=(Blocks[p-1].invite & Blocks[p-1].pledge);
  976. X
  977. X sprintf(buf,"         ========== %s Power Report ==========\n",
  978. X            Blocks[p-1].name);
  979. X    notify(Playernum, buf);
  980. X sprintf(buf,"                    %-64.64s\n",
  981. X                Blocks[p-1].motto);
  982. X    notify(Playernum, buf);
  983. X  sprintf(buf," #  Name               sects   popn eff mob #shp #plan    res   fuel   dest\n");
  984. X    notify(Playernum, buf);
  985. X
  986. Xopenracedata(&power_racedata);
  987. Xfor(i=1; i<=n; i++)
  988. X    if(isset(dummy, i)) {
  989. X          getrace(power_racedata, &r,(int)i);
  990. X          if(!r->dissolved) {
  991. X          sprintf(buf,"%2d %-20.20s%5u%7u%4.0f%4.0f%5u%6u%7u%7u%7u\n",
  992. X            i, r->name,
  993. X            Power[i-1].sectors_owned, Power[i-1].popn, 
  994. X            Power[i-1].sectors_owned ? 
  995. X                (float)Power[i-1].sum_eff/Power[i-1].sectors_owned : 0.0,
  996. X            Power[i-1].sectors_owned ? 
  997. X                (float)Power[i-1].sum_mob/Power[i-1].sectors_owned : 0.0,
  998. X            Power[i-1].ships_owned, Power[i-1].planets_owned,
  999. X            Power[i-1].resource, Power[i-1].fuel, Power[i-1].destruct);
  1000. X    notify(Playernum, buf);
  1001. X          }
  1002. X          free(r);
  1003. X        }
  1004. Xclose_file(power_racedata);
  1005. X
  1006. X    } else {   /* list power report for all the alliance blocks (as of the last update) */
  1007. X sprintf(buf,"         ========== Alliance Blocks as of %s ==========\n",
  1008. X            Power_blocks.time);
  1009. X    notify(Playernum, buf);
  1010. X  sprintf(buf," #  Name          members  sects    popn ship systems  res   fuel   dest   VPs\n");
  1011. X    notify(Playernum, buf);
  1012. Xfor(i=1; i<=n; i++)
  1013. X    if(Blocks[i-1].VPs) {
  1014. X          sprintf(buf,"%2d %-19.19s%3d%7u%8u%5u%6u%7u%7u%7u%6u\n",
  1015. X            i, Blocks[i-1].name, Power_blocks.members[i-1],
  1016. X            Power_blocks.sectors_owned[i-1], Power_blocks.popn[i-1], 
  1017. X            Power_blocks.ships_owned[i-1], Power_blocks.systems_owned[i-1],
  1018. X            Power_blocks.resource[i-1], Power_blocks.fuel[i-1],
  1019. X            Power_blocks.destruct[i-1], Power_blocks.VPs[i-1]);
  1020. X            notify(Playernum, buf);
  1021. X        }
  1022. X    }
  1023. X
  1024. X}
  1025. X
  1026. X
  1027. X
  1028. Xpower(Playernum,APcount, argn,args)
  1029. Xint Playernum;
  1030. Xint APcount, argn;
  1031. Xchar args[MAXARGS][COMMANDSIZE];
  1032. X{
  1033. Xregister int i,n;
  1034. Xint power_fd, p;
  1035. Xracetype *r, *Race;
  1036. X
  1037. Xn = Numraces();
  1038. Xp = -1;
  1039. X
  1040. Xif(argn>=2) {
  1041. X    GetPlayer(args[1], &p, &r);
  1042. Xif(p < 1 || p > n) {
  1043. X    notify(Playernum, "No such player,\n");
  1044. X    return;
  1045. X    }
  1046. X    free(r);
  1047. X    }
  1048. X
  1049. Xopenracedata(&power_racedata);
  1050. Xgetrace(power_racedata, &Race, Playernum);
  1051. X
  1052. X sprintf(buf,"         ========== Galactic Bloodshed Power Report ==========\n");
  1053. X    notify(Playernum, buf);
  1054. X  sprintf(buf," #  Name               sects   popn eff mob #shp  #plan   res   fuel   dest%s\n",
  1055. X        (Race->God ? " VNs" : ""));
  1056. X    notify(Playernum, buf);
  1057. X
  1058. X      for (i=1; i<=n; i++) 
  1059. X        if(argn < 2 || i==p) {
  1060. X          getrace(power_racedata, &r, (int)i);
  1061. X          if(!r->dissolved) {
  1062. X    if(Race->God)
  1063. X          sprintf(buf,"%2d %-20.20s%5u%7u%4.0f%4.0f%5u%6u%7u%7u%7u%4u\n",
  1064. X            i, r->name,
  1065. X            Power[i-1].sectors_owned, Power[i-1].popn, 
  1066. X            Power[i-1].sectors_owned ? 
  1067. X                (float)Power[i-1].sum_eff/Power[i-1].sectors_owned : 0.0,
  1068. X            Power[i-1].sectors_owned ? 
  1069. X                (float)Power[i-1].sum_mob/Power[i-1].sectors_owned : 0.0,
  1070. X            Power[i-1].ships_owned, Power[i-1].planets_owned,
  1071. X            Power[i-1].resource, Power[i-1].fuel, Power[i-1].destruct,
  1072. X            Sdata.VN_hitlist[i-1]);
  1073. X    else
  1074. X          sprintf(buf,"%2d %-20.20s%5u%7u%4.0f%4.0f%5u%6u%7u%7u%7u\n",
  1075. X            i, r->name,
  1076. X            Power[i-1].sectors_owned, Power[i-1].popn, 
  1077. X            Power[i-1].sectors_owned ? 
  1078. X                (float)Power[i-1].sum_eff/Power[i-1].sectors_owned : 0.0,
  1079. X            Power[i-1].sectors_owned ? 
  1080. X                (float)Power[i-1].sum_mob/Power[i-1].sectors_owned : 0.0,
  1081. X            Power[i-1].ships_owned, Power[i-1].planets_owned,
  1082. X            Power[i-1].resource, Power[i-1].fuel, Power[i-1].destruct);
  1083. X
  1084. X          notify(Playernum, buf);
  1085. X          }
  1086. X          free(r);
  1087. X      }
  1088. Xclose_file(power_racedata);
  1089. Xfree(Race);
  1090. X}
  1091. X
  1092. X
  1093. X
  1094. END_OF_FILE
  1095. if test 4434 -ne `wc -c <'server/power.c'`; then
  1096.     echo shar: \"'server/power.c'\" unpacked with wrong size!
  1097. fi
  1098. # end of 'server/power.c'
  1099. if test -f 'server/races.h' -a "${1}" != "-c" ; then 
  1100.   echo shar: Renaming existing file \"'server/races.h'\" to \"'server/races.h.orig'\"
  1101.   mv -f 'server/races.h' 'server/races.h.orig'
  1102. fi
  1103. echo shar: Extracting \"'server/races.h'\" \(2615 characters\)
  1104. sed "s/^X//" >'server/races.h' <<'END_OF_FILE'
  1105. X/*
  1106. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  1107. X * smq@ucscb.ucsc.edu, mods by people in GB.c, enroll.dat.
  1108. X * Restrictions in GB.c.
  1109. X */
  1110. X
  1111. X
  1112. Xstruct race {
  1113. X    int Playernum;
  1114. X    char name[RNAMESIZE];
  1115. X    char motto[64];    /* for a cute message */
  1116. X    float tech;        /* technology */
  1117. X    float birthrate;
  1118. X    float overbirthrate;
  1119. X    percent fighters;
  1120. X    percent IQ;
  1121. X    percent number_sexes;
  1122. X    float mass;
  1123. X    float metabolism;
  1124. X    float adventurism;
  1125. X    short conditions[OTHER+1];    /* planetary conditions you like */
  1126. X    char deflevel;
  1127. X    char defsystem;
  1128. X    char defplanetnum;    /* current default */
  1129. X    char homelevel;
  1130. X    char homesystem;
  1131. X    char homeplanetnum;    /* home place */
  1132. X    float likes[DES_PLATED+1];        /* what territories they like */
  1133. X    char likesbest;
  1134. X    percent translate[MAXPLAYERS];    /* translation mod for each player */
  1135. X    percent captured_prisoners[MAXPLAYERS]; /* goes up with planetary contact */
  1136. X    unsigned int atwar;        /* war 32 bits*/
  1137. X    unsigned int allied;    /* allies 32 bits*/
  1138. X    unsigned short Gov_ship;
  1139. X
  1140. X    short gag;    /*options for toggle */
  1141. X    short double_digits;
  1142. X    short inverse;
  1143. X    short geography;
  1144. X    short autoload;
  1145. X    unsigned short highlight;    /* which race to highlight */
  1146. X    
  1147. X    short C_C;    /* berserker control code */
  1148. X    short standby;
  1149. X
  1150. X    short color;    /* whether or not you are using a color client */
  1151. X    short dissolved;
  1152. X    short weekly;    /* weekly allocation time */
  1153. X    short daily;    /* active time left over for the day */
  1154. X    short dummy4;
  1155. X
  1156. X    short God;        /* whether or not the race has God status */
  1157. X    short Thing;
  1158. X
  1159. X};
  1160. X
  1161. Xstruct block {
  1162. X    int Playernum;
  1163. X    char name[RNAMESIZE];
  1164. X    char motto[64];
  1165. X    unsigned int invite;
  1166. X    unsigned int pledge;
  1167. X    unsigned int atwar;
  1168. X    unsigned int allied;
  1169. X    unsigned short next;
  1170. X    unsigned short systems_owned;
  1171. X    unsigned VPs;
  1172. X
  1173. X    unsigned dummy;
  1174. X    unsigned dummy1;
  1175. X    unsigned dummy2;
  1176. X
  1177. X};
  1178. X
  1179. Xstruct power_blocks {
  1180. X    char time[128];
  1181. X    unsigned members[MAXPLAYERS];
  1182. X    unsigned popn[MAXPLAYERS];    /* total population */
  1183. X    unsigned resource[MAXPLAYERS];    /* total resource in stock */
  1184. X    unsigned fuel[MAXPLAYERS];
  1185. X    unsigned destruct[MAXPLAYERS];    /* total dest in stock */
  1186. X    unsigned short ships_owned[MAXPLAYERS];    /* # of ships owned */
  1187. X    unsigned short systems_owned[MAXPLAYERS];
  1188. X    unsigned sectors_owned[MAXPLAYERS];
  1189. X    unsigned short VPs[MAXPLAYERS];
  1190. X
  1191. X    unsigned dummy;
  1192. X    unsigned dummy1;
  1193. X    };
  1194. X
  1195. Xtypedef struct race racetype;
  1196. Xtypedef struct block blocktype;
  1197. XEXTERN struct block Blocks[MAXPLAYERS];
  1198. XEXTERN struct power_blocks Power_blocks;
  1199. XEXTERN int Block_start;
  1200. X
  1201. XEXTERN racetype *races[MAXPLAYERS];
  1202. END_OF_FILE
  1203. if test 2615 -ne `wc -c <'server/races.h'`; then
  1204.     echo shar: \"'server/races.h'\" unpacked with wrong size!
  1205. fi
  1206. # end of 'server/races.h'
  1207. if test -f 'server/relation.c' -a "${1}" != "-c" ; then 
  1208.   echo shar: Renaming existing file \"'server/relation.c'\" to \"'server/relation.c.orig'\"
  1209.   mv -f 'server/relation.c' 'server/relation.c.orig'
  1210. fi
  1211. echo shar: Extracting \"'server/relation.c'\" \(1807 characters\)
  1212. sed "s/^X//" >'server/relation.c' <<'END_OF_FILE'
  1213. X/* 
  1214. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  1215. X * smq@ucscb.ucsc.edu, mods by people in GB_copyright.h.
  1216. X * Restrictions in GB_copyright.h.
  1217. X *
  1218. X * relation.c -- state relations among players 
  1219. X */
  1220. X
  1221. X#include "GB_copyright.h"
  1222. X#define EXTERN extern
  1223. X#include "vars.h"
  1224. X#include "races.h"
  1225. X#include "ships.h"
  1226. X#include "buffers.h"
  1227. X
  1228. Xextern char *Desnames[];
  1229. Xchar *allied();
  1230. Xint relation_racedata;
  1231. X
  1232. Xrelation(Playernum,APcount, argn, args)
  1233. Xint Playernum;
  1234. Xint APcount, argn;
  1235. Xchar args[MAXARGS][COMMANDSIZE];
  1236. X{
  1237. Xint numraces;
  1238. Xint p, q;
  1239. Xracetype *r, *Race;
  1240. X
  1241. X     numraces = Numraces();
  1242. X
  1243. Xif(argn==1) {
  1244. X    q = Playernum;
  1245. X} else {
  1246. X    GetPlayer(args[1], &q, &Race);
  1247. X        if(q < 1 || q > numraces) {
  1248. X            notify(Playernum, "No such player.\n");
  1249. X            return;
  1250. X            }
  1251. X}
  1252. X
  1253. Xopenracedata(&relation_racedata);
  1254. Xif(argn==1) getrace(relation_racedata, &Race, q);
  1255. X
  1256. X
  1257. X    sprintf(buf,"\n              Racial Relations Report for %s\n\n",Race->name);
  1258. X        notify(Playernum, buf);
  1259. X    sprintf(buf," #      know             Race name       Yours        Theirs \n");
  1260. X        notify(Playernum, buf);
  1261. X    sprintf(buf," -      ----             ---------       -----        ------ \n");
  1262. X        notify(Playernum, buf);
  1263. Xfor (p=1; p<=numraces; p++)
  1264. X        if (p != Race->Playernum) {
  1265. X            getrace(relation_racedata, &r, (int)p);
  1266. X            sprintf(buf,"%2d %s (%3d%%) %20.20s : %10s   %10s\n", p, 
  1267. X                  ((Race->God || Race->translate[p-1] > 30) && r->Thing) ? 
  1268. X                "Meso" : "    ", Race->translate[p-1], r->name,
  1269. X                allied(Race, p, 100, Race->God), 
  1270. X                    allied(r, q,Race->translate[p-1], Race->God) );
  1271. X        notify(Playernum, buf);
  1272. X            free(r);
  1273. X            }
  1274. Xfree(Race);
  1275. Xclose_file(relation_racedata);
  1276. X
  1277. X
  1278. X}
  1279. X
  1280. X
  1281. X
  1282. Xchar *allied(r, p, q, God)
  1283. Xracetype *r;
  1284. Xint p,q,God;
  1285. X{
  1286. X     if (isset( r->atwar, p)) return "WAR";
  1287. X     else if (isset( r->allied, p)) return "ALLIED";
  1288. X     else return "neutral";
  1289. X}
  1290. X
  1291. X
  1292. X
  1293. X
  1294. END_OF_FILE
  1295. if test 1807 -ne `wc -c <'server/relation.c'`; then
  1296.     echo shar: \"'server/relation.c'\" unpacked with wrong size!
  1297. fi
  1298. # end of 'server/relation.c'
  1299. if test -f 'server/shipdata.h' -a "${1}" != "-c" ; then 
  1300.   echo shar: Renaming existing file \"'server/shipdata.h'\" to \"'server/shipdata.h.orig'\"
  1301.   mv -f 'server/shipdata.h' 'server/shipdata.h.orig'
  1302. fi
  1303. echo shar: Extracting \"'server/shipdata.h'\" \(4424 characters\)
  1304. sed "s/^X//" >'server/shipdata.h' <<'END_OF_FILE'
  1305. X/*
  1306. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  1307. X * smq@ucscb.ucsc.edu, mods by people in GB.c, enroll.dat.
  1308. X * Restrictions in GB.c.
  1309. X */
  1310. X
  1311. Xchar Shipltrs[]={ 'p','s','X','D','B','I','C','d','f','e','H','S','O','c',
  1312. X    't','!','+','m',
  1313. X    '=','\\','-','a','g','v','V','Q','L','w',':','G','F',
  1314. X    'T','&','A','[','R','P'};
  1315. X
  1316. Xint Shipdata[NUMSTYPES][NUMABILS] = {
  1317. X   /*  carg  dest guns fuelcap  tech crw arm cst  jmp lnd sw sp dm bd cn mod las prg*/
  1318. X/*SPd*/   1,    1,   0,     20,    1,  1,  0,  10,  0, 1, 0, 2,  0, 0, 0, 0, 0,  1,
  1319. X/*Shu*/  25,    2,   1,     20,   10,  5,  0,  40,  0, 1, 0, 4,  0, 3, 2, 1, 0, 1,
  1320. X/*Car*/ 600,  800,  30,   1000,  250, 60,  5, 700,  1, 0, 0, 4, 50, 2, 1, 1, 1, 1,
  1321. X/*Drn*/ 500,  500,  60,    500,  500, 40, 10,1000,  1, 1, 0, 6, 50, 3, 1, 1, 1, 1,
  1322. X/*BB */ 235,  400,  30,    200,  200, 30,  7, 400,  1, 1, 0, 6, 50, 3, 1, 1, 1, 1,
  1323. X/*Int*/ 110,  120,  30,    200,  200, 10,  2, 300,  1, 1, 0, 6, 50, 3, 1, 1, 1, 1,
  1324. X/*CA */ 165,  300,  20,    120,  150, 20,  5, 200,  1, 1, 0, 6, 50, 3, 1, 1, 1, 1,
  1325. X/*DD */ 110,  120,  15,     80,  100, 10,  3, 100,  1, 1, 0, 6, 50, 3, 1, 1, 1, 1,
  1326. X/*FF */   0,   40,  20,      8,  100,  1,  0,  40,  1, 1, 0, 6,  0, 3, 1, 1, 1, 1,
  1327. X/*Exp*/   0,    15,  5,     35,   20,  2,  1,  40,  1, 1, 0, 6,  0, 3, 0, 1, 1, 1,
  1328. X/*Hab*/5000,   500, 20,   2000,  100,2000, 3,1000,  1, 0, 0, 4, 75, 2, 2, 0, 1, 1,
  1329. X/*Stn*/5000,   250, 20,   2000,  100, 50,  1, 400,  1, 0, 0, 4, 75, 2, 2, 0, 1, 1,
  1330. X/*OSP*/1400,  1000, 50,   2000,  200,200,  5,1600,  1, 0, 0, 4, 75, 2, 2, 1, 1, 1,
  1331. X/*Crg*/1000,  1000, 10,   1000,  100,100,  2, 100,  1, 1, 0, 4,  0, 3, 2, 1, 0, 1,
  1332. X/*Tnk*/ 200,   200, 10,   5000,  100, 10,  2, 100,  1, 1, 0, 4,  0, 3, 1, 1, 0, 1,
  1333. X/*GOD*/20000,20000,20000,20000, 5000,100, 10, 100,  1, 1, 0, 9,  0, 0, 2, 1, 1, 1,
  1334. X/*SMn*/   0,    50,  0,     20,   50,  0,  1,  25,  0, 1, 1, 4,  0, 1, 0, 0, 0, 1,
  1335. X   /*  carg   dest guns fuelcap tech crw arm  cst jmp lnd sw sp  dm bd cn mod prg*/
  1336. X/*mir*/ 200,    10,  1,     20,  100,  5,  0, 200,  0, 0, 0, 2, 75, 2, 0, 0, 0, 1,
  1337. X/*Stc*/   0,     0,  0,     20,   50,  2,  0,  50,  1, 1, 0, 4,  0, 3, 0, 1, 0, 1,
  1338. X/*Tsc*/   0,     0,  0,      0,    5,  2,  0,  10,  0, 1, 0, 0,  0, 0, 0, 0, 0, 1,
  1339. X/*T-R*/   0,     0,  0,   1000,  100,  5,  0, 400,  0, 1, 1, 2,  0, 0, 0, 0, 0, 1,
  1340. X/*APr*/   0,     0,  0,    200,   50, 10,  1,  80,  0, 1, 1, 0,  0, 0, 0, 0, 0, 1,
  1341. X/*CD */   0,     1,  0,      1,   40,  0,  0,  20,  0, 1, 0, 2,  0, 0, 0, 0, 0, 1,
  1342. X/*VN */  20,     1,  0,     50,   80,  0,  1,  30,  0, 1, 1, 2,  0, 0, 0, 0, 0, 1,
  1343. X/*Bers*/ 50,   500, 40,   1000,10000,  0, 10, 100,  0, 1, 1, 4,  0, 0, 0, 0, 0, 1,
  1344. X/*Gov*/ 500,   100, 20,   1000,    0, 10, 20,1500,  1, 1, 0, 2, 75, 0, 0, 0, 0, 1,
  1345. X/*OMCL*/  0,   100, 10,    100,  350,  2,  1, 100,  0, 1, 1, 4,  0, 0, 0, 0, 0, 1,
  1346. X/*TWC*/   0,     1,  0,     20,   25,  0,  0,  10,  0, 1, 0, 2,  0, 0, 0, 0, 0, 1,
  1347. X/*Prb*/   0,     1,  0,     20,  200,  0,  0,  40,  1, 1, 0, 9,  0, 1, 0, 0, 0, 1,
  1348. X   /*  carg   dest guns fuelcap tech crw arm cst jmp ln sw sp  dm bd  cn mod prg*/
  1349. X/*GRL */ 50,   120, 40,      0,  100,  5,  3, 100,  0, 1, 0, 0, 50, 0, 0, 0, 0, 1,
  1350. X/*Fac*/   0,    0,   0,      0,    0, 20,  5,  50,  0, 1, 1, 0, 75, 0, 3, 0, 0, 1,
  1351. X/*TFD*/   0,     0,  0,    200,   70, 20,  1, 200,  1, 1, 1, 4,  0, 0, 0, 0, 0, 1,
  1352. X/*BCC*/ 200,    50,  5,      0,99999,  0, 10,   3,  0, 1, 1, 0,  0, 0, 0, 0, 0, 0,
  1353. X/*BAf*/1000,  1000,  0,   1000,99999,  0, 10,   8,  0, 1, 1, 0,  0, 0, 0, 0, 0, 0,
  1354. X/*TD */1000,  1000,  0,   1000,  400,100,  0,1200,  0, 1, 1, 0,  0, 0, 0, 0, 0, 1,
  1355. X/*SRp*/   0,     0,  0,      0,  100,  0,  0,  10,  0, 1, 0, 0,  0, 0, 0, 0, 0, 0,
  1356. X/*PDN*/   0,   500, 20,      0,  200, 50,  20, 500, 0, 1, 0, 0, 75, 0, 0, 0, 0, 1
  1357. X};
  1358. X
  1359. Xchar *Shipnames[NUMSTYPES] = {
  1360. X   "Spore pod",
  1361. X   "Shuttle",
  1362. X   "Carrier",
  1363. X   "Dreadnaught",
  1364. X   "Battleship",
  1365. X   "Interceptor",
  1366. X   "Cruiser",
  1367. X   "Destroyer",
  1368. X   "Fighter Group",
  1369. X   "Explorer",
  1370. X   "Habitat",
  1371. X   "Station",
  1372. X   "Ob Asst Pltfrm",
  1373. X   "Cargo Ship",
  1374. X   "Tanker",
  1375. X   "GODSHIP",
  1376. X   "Space Mine",
  1377. X   "Space Mirror",
  1378. X   "Space Telescope",
  1379. X   "Ground Telescope",
  1380. X   "* T-R beam",
  1381. X   "Atmosph Processor",
  1382. X   "Canister of dust",
  1383. X   "V.Neumann Machine",
  1384. X   "Berserker",
  1385. X   "Govrnmnt. Center",
  1386. X   "Mind Control Lsr",
  1387. X   "Tox Waste Canistr",
  1388. X   "Space Probe",
  1389. X   "Gamma Ray Laser",
  1390. X   "Factory",
  1391. X   "Terraform Device",
  1392. X   "Bers Cntrl Center",
  1393. X   "Bers Autofac",
  1394. X   "AVPM Transporter",
  1395. X   "Sector Repair",
  1396. X   "Planet Def Net"
  1397. X};
  1398. END_OF_FILE
  1399. if test 4424 -ne `wc -c <'server/shipdata.h'`; then
  1400.     echo shar: \"'server/shipdata.h'\" unpacked with wrong size!
  1401. fi
  1402. # end of 'server/shipdata.h'
  1403. if test -f 'server/tech.c' -a "${1}" != "-c" ; then 
  1404.   echo shar: Renaming existing file \"'server/tech.c'\" to \"'server/tech.c.orig'\"
  1405.   mv -f 'server/tech.c' 'server/tech.c.orig'
  1406. fi
  1407. echo shar: Extracting \"'server/tech.c'\" \(2001 characters\)
  1408. sed "s/^X//" >'server/tech.c' <<'END_OF_FILE'
  1409. X/*
  1410. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  1411. X * smq@ucscb.ucsc.edu, mods by people in GB_copyright.h.
  1412. X * Restrictions in GB_copyright.h.
  1413. X *
  1414. X * tech.c -- increase investment in technological development.
  1415. X */
  1416. X
  1417. X#include "GB_copyright.h"
  1418. X#define EXTERN extern
  1419. X#include "vars.h"
  1420. X#include "races.h"
  1421. X#include "buffers.h"
  1422. X#include <math.h>
  1423. X#include <signal.h>
  1424. X#include <ctype.h>
  1425. Xint tech_pdata;
  1426. X
  1427. Xtechnology(Playernum,APcount, argn, args)
  1428. Xint Playernum;
  1429. Xint APcount, argn;
  1430. Xchar args[MAXARGS][COMMANDSIZE];
  1431. X{
  1432. Xint c,invest;
  1433. Xplanettype *p;
  1434. Xfloat tech_prod();
  1435. X
  1436. Xtech_pdata = NEUTRAL_FD;
  1437. X
  1438. Xif (Dir[Playernum-1].level != LEVEL_PLAN) {
  1439. X    sprintf(buf,"scope must be a planet (%d).\n", Dir[Playernum-1].level);
  1440. X        notify(Playernum, buf);
  1441. X    return;
  1442. X}
  1443. Xif (!enufAP(Playernum,Stars[Dir[Playernum-1].snum]->AP[Playernum-1], APcount)) {
  1444. X    return;
  1445. X    }
  1446. X
  1447. X openpdata(&tech_pdata);
  1448. X getplanet(tech_pdata,&p,Stars[Dir[Playernum-1].snum]->planetpos[Dir[Playernum-1].pnum]);
  1449. Xclose_file(tech_pdata);
  1450. X
  1451. Xif(argn < 2) {
  1452. X    sprintf(buf, "Current investment : %d    Technology production/update: %.3f\n",
  1453. X        p->info[Playernum-1].tech_invest,
  1454. X        tech_prod((int)p->info[Playernum-1].tech_invest,
  1455. X              (int)p->info[Playernum-1].popn));
  1456. X    notify(Playernum, buf);
  1457. X    free(p);
  1458. X    return;
  1459. X        }
  1460. X
  1461. X     invest=atoi(args[1]);
  1462. X
  1463. X    if (invest < 0) {
  1464. X        sprintf(buf,"Illegal value.\n");
  1465. X            notify(Playernum, buf);
  1466. X        free(p);
  1467. X        return;
  1468. X    }
  1469. X
  1470. Xp->info[Playernum-1].tech_invest = invest;
  1471. Xopenpdata(&tech_pdata);
  1472. Xputplanet(tech_pdata,p,Stars[Dir[Playernum-1].snum]->planetpos[Dir[Playernum-1].pnum]);
  1473. X close_file(tech_pdata);
  1474. X
  1475. X    deductAPs(Playernum,APcount, Dir[Playernum-1].snum, 0);
  1476. X
  1477. X    sprintf(buf,"   New (ideal) tech production: %.3f (this planet)\n", 
  1478. X            tech_prod((int)p->info[Playernum-1].tech_invest,
  1479. X                  (int)p->info[Playernum-1].popn));
  1480. X    notify(Playernum, buf);
  1481. X
  1482. X
  1483. X free(p);
  1484. X
  1485. X}
  1486. X
  1487. Xfloat tech_prod(investment, popn)
  1488. Xint investment;
  1489. Xint popn;
  1490. X{
  1491. Xfloat factor, scale;
  1492. X
  1493. Xscale = (float)popn/1000.;
  1494. X
  1495. Xreturn (TECH_INVEST * sqrt( (float)investment * scale));
  1496. X}
  1497. X
  1498. X
  1499. END_OF_FILE
  1500. if test 2001 -ne `wc -c <'server/tech.c'`; then
  1501.     echo shar: \"'server/tech.c'\" unpacked with wrong size!
  1502. fi
  1503. # end of 'server/tech.c'
  1504. if test -f 'server/toggle.c' -a "${1}" != "-c" ; then 
  1505.   echo shar: Renaming existing file \"'server/toggle.c'\" to \"'server/toggle.c.orig'\"
  1506.   mv -f 'server/toggle.c' 'server/toggle.c.orig'
  1507. fi
  1508. echo shar: Extracting \"'server/toggle.c'\" \(2668 characters\)
  1509. sed "s/^X//" >'server/toggle.c' <<'END_OF_FILE'
  1510. X/*
  1511. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  1512. X * smq@ucscb.ucsc.edu, mods by people in GB_copyright.h.
  1513. X * Restrictions in GB_copyright.h.
  1514. X *
  1515. X *  toggle.c -- toggles some options
  1516. X */
  1517. X
  1518. X#include "GB_copyright.h"
  1519. X#define EXTERN extern
  1520. X#include "vars.h"
  1521. X#include "races.h"
  1522. X#include "buffers.h"
  1523. X#include <strings.h>
  1524. Xint toggle_racedata;
  1525. X
  1526. Xtoggle(Playernum,APcount, argn, args)
  1527. Xint Playernum;
  1528. Xint APcount;
  1529. Xint argn;
  1530. Xchar args[MAXARGS][COMMANDSIZE];
  1531. X{
  1532. Xint i;
  1533. Xracetype *Race;
  1534. X
  1535. X    openracedata(&toggle_racedata);
  1536. X    getrace(toggle_racedata, &Race, Playernum);
  1537. X    close_file(toggle_racedata);
  1538. X
  1539. X   if (argn>1) {
  1540. X    i = strlen(args[1]);
  1541. X
  1542. X    if (!strncmp(args[1],"inverse",i)) tog(Playernum,&Race->inverse,"inverse");
  1543. X    else if (!strncmp(args[1],"double_digits",i)) tog(Playernum,&Race->double_digits,
  1544. X                "double_digits");
  1545. X    else if (!strncmp(args[1],"geography",i)) tog(Playernum,&Race->geography,"geography");
  1546. X    else if (!strncmp(args[1],"gag",i)) tog(Playernum,&Race->gag,"gag");
  1547. X    else if (!strncmp(args[1],"autoload",i)) tog(Playernum,&Race->autoload,"autoload");
  1548. X    else if (!strncmp(args[1],"color",i)) tog(Playernum,&Race->color,"color");
  1549. X    else {
  1550. X        sprintf(buf,"No such option '%s'\n", args[1]);
  1551. X            notify(Playernum, buf);
  1552. X        free(Race);
  1553. X        return;
  1554. X        }
  1555. Xopenracedata(&toggle_racedata);
  1556. Xputrace(toggle_racedata, Race);
  1557. Xclose_file(toggle_racedata);
  1558. X
  1559. X   } else {
  1560. X    sprintf(buf,"gag is %s\n", Race->gag ? "ON" : "OFF");
  1561. X            notify(Playernum, buf);
  1562. X    sprintf(buf,"inverse is %s\n", Race->inverse ? "ON" : "OFF");
  1563. X            notify(Playernum, buf);
  1564. X    sprintf(buf,"double_digits is %s\n", Race->double_digits ? "ON" : "OFF");
  1565. X            notify(Playernum, buf);
  1566. X    sprintf(buf,"geography is %s\n", Race->geography ? "ON" : "OFF");
  1567. X            notify(Playernum, buf);
  1568. X    sprintf(buf,"autoload is %s\n", Race->autoload ? "ON": "OFF");
  1569. X            notify(Playernum, buf);
  1570. X    sprintf(buf,"color is %s\n", Race->color ? "ON": "OFF");
  1571. X            notify(Playernum, buf);
  1572. X    sprintf(buf, "highlight player %d\n", Race->highlight);
  1573. X            notify(Playernum, buf);
  1574. X   }
  1575. Xfree(Race);
  1576. X}
  1577. X
  1578. X
  1579. Xhighlight(Playernum, APcount, argn, args)
  1580. Xint Playernum;
  1581. Xint APcount;
  1582. Xint argn;
  1583. Xchar args[MAXARGS][COMMANDSIZE];
  1584. X{
  1585. Xint n;
  1586. Xracetype *alien, *Race;
  1587. X
  1588. XGetPlayer(args[1], &n, &alien);
  1589. X   if (n < 1 || n > Numraces() ) {
  1590. X    sprintf(buf,"No such player.\n");
  1591. X        notify(Playernum, buf);
  1592. X    return;
  1593. X   }
  1594. X
  1595. X      openracedata(&toggle_racedata); 
  1596. X      getrace(toggle_racedata, &Race, Playernum);    
  1597. X    Race->highlight = n;
  1598. X    putrace(toggle_racedata, Race);
  1599. X      close_file(toggle_racedata);
  1600. X    free(alien);
  1601. X    free(Race);
  1602. X    
  1603. X}
  1604. X
  1605. Xtog(Playernum,op, name)
  1606. Xint Playernum;
  1607. Xshort *op;
  1608. Xchar *name;
  1609. X{
  1610. X *op = !(*op);
  1611. X sprintf(buf, "%s is now %s\n", name, *op ? "on" : "off" );
  1612. X            notify(Playernum, buf);
  1613. X}
  1614. X
  1615. END_OF_FILE
  1616. if test 2668 -ne `wc -c <'server/toggle.c'`; then
  1617.     echo shar: \"'server/toggle.c'\" unpacked with wrong size!
  1618. fi
  1619. # end of 'server/toggle.c'
  1620. echo shar: End of archive 9 \(of 9\).
  1621. cp /dev/null ark9isdone
  1622. MISSING=""
  1623. for I in 1 2 3 4 5 6 7 8 9 ; do
  1624.     if test ! -f ark${I}isdone ; then
  1625.     MISSING="${MISSING} ${I}"
  1626.     fi
  1627. done
  1628. if test "${MISSING}" = "" ; then
  1629.     echo You have unpacked all 9 archives.
  1630.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1631. else
  1632.     echo You still need to unpack the following archives:
  1633.     echo "        " ${MISSING}
  1634. fi
  1635. ##  End of shell archive.
  1636. exit 0
  1637.